﻿Imports System
Imports System.Drawing

Namespace System.Workflow.ComponentModel.Design
    Public Class ActivityDesignerPaintEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New(ByVal graphics As Graphics, ByVal clipRectangle As Rectangle, ByVal viewPort As Rectangle, ByVal designerTheme As ActivityDesignerTheme)
            Me.graphics = graphics
            Me.clipRectangle = Rectangle.Inflate(clipRectangle, 1, 1)
            Me.viewPort = viewPort
            Me.designerTheme = designerTheme
        End Sub


        ' Properties
        Public ReadOnly Property AmbientTheme As AmbientTheme
            Get
                Return WorkflowTheme.CurrentTheme.AmbientTheme
            End Get
        End Property

        Public ReadOnly Property ClipRectangle As Rectangle
            Get
                Return Me.clipRectangle
            End Get
        End Property

        Public ReadOnly Property DesignerTheme As ActivityDesignerTheme
            Get
                Return Me.designerTheme
            End Get
        End Property

        Public ReadOnly Property Graphics As Graphics
            Get
                Return Me.graphics
            End Get
        End Property

        Friend ReadOnly Property ViewPort As Rectangle
            Get
                Return Me.viewPort
            End Get
        End Property


        ' Fields
        Private clipRectangle As Rectangle
        Private designerTheme As ActivityDesignerTheme
        Private graphics As Graphics
        Private viewPort As Rectangle
    End Class
End Namespace

